home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / arc / Checker12.lha / Checker / Checker.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-23  |  2KB  |  57 lines
  1. /*$VER: Checker.rexx v1.2 (23.11.94)
  2. **
  3. **  (C) Copyright 1994 Stephan Bülling ; Mega/Soft
  4. **
  5. */
  6.  
  7. VER="Checker.rexx 1.2 (23.11.94)"
  8. NL = '0a'x;options results;options failat 99999;
  9.  
  10. PARSE ARG files.i
  11.  If files.i="" then;call req;else;
  12.  signal on error;
  13.  signal on SYNTAX;
  14.  call start;else
  15. end
  16.  
  17. REQ:
  18. call addlib("rexxreqtools.library", 0, -30, 0)
  19. If ~Exists("ENV:Checker/LHA_DELETE") then do;
  20. rtezrequest(center("Starten gescheitert",30)||NL||,
  21.             center("ENV:Checker/LHA_DELETE",30)||NL||,
  22.             center("nicht gefunden",30)||NL||,
  23.             CENTER(" ",30),"_Sorry",""VER"");
  24.  CALL BREAK_C
  25. end
  26.  
  27. rtezrequest(center(""VER"",55)||NL||,
  28.            center(" (W) 1993-1994 by Stephan Bülling ",50)||NL||,
  29.            center(" (C) 1993-1994 by Mega/Soft Ltd.",50)||NL||,
  30.            center("",50)||NL||,
  31.            center(" EMail: rubberduck@blanker.ruhr.de",50)||NL||,
  32.            center(" Dieses Programm ist PM-Ware (Brief-Ware)",50)||NL||,
  33.            CENTER(" ",70),"_Weiter",""VER"");
  34. call rtfilerequest(, , "Wähle dein(e) Archiv(e)", , "rtfi_flags=freqf_multiselect",files)
  35. if files == 1 then
  36.   do
  37.     do i=1 to files.count
  38. start:
  39.  check = upper(right(files.i, 3))
  40.  select
  41.     when check = 'LZH' | check = 'LHA' then
  42.  ADDRESS COMMAND 'Execute ENV:Checker/_LHA 'files.i''
  43.     when check = 'DMS' then
  44.      ADDRESS COMMAND 'Execute ENV:Checker/_DMS 'files.i''
  45.   otherwise
  46.        say files.i ' ist kein bekanntes Archivformat...'
  47.        say 'der Filename muss mit "LZH", "LHA" oder "DMS" enden'
  48.        exit
  49.  end
  50. end
  51.  
  52. SYNTAX:;exit
  53. ERROR:;exit
  54. Break_C:;EXIT
  55. end
  56.  
  57.